home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / qckcmpct.sit / Quick Compacter 2.0 / background_2588.txt < prev    next >
Text File  |  1990-02-01  |  3KB  |  103 lines
  1. -- background: 2588 from stack: in.0
  2. -- bmap block id: 3145
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on CleanUp ----this XFCN is only useful in Quick Compacter.
  8.   get CUp(the freesize of this stack,the size of this stack)
  9. end CleanUp
  10. on UpdatePrefs
  11.   global PrefsHi
  12.   set cursor to watch
  13.   put the hilite of cd btn id 90 into item 1 of PrefsHi
  14.   put the hilite of cd btn id 91 into item 2 of PrefsHi
  15.   put the hilite of cd btn id 92 into item 3 of PrefsHi
  16.   put the hilite of cd btn id 93 into item 4 of PrefsHi
  17.   put the hilite of cd btn id 94 into item 5 of PrefsHi
  18.   put the hilite of cd btn id 98 into item 6 of PrefsHi
  19.   put the hilite of cd btn id 99 into item 7 of PrefsHi
  20.   put the hilite of cd btn id 100 into item 8 of PrefsHi
  21.   put the hilite of cd btn id 104 into item 9 of PrefsHi
  22.   put the hilite of cd btn id 107 into item 12 of PrefsHi
  23.   put the hilite of cd btn id 115 into item 13 of PrefsHi
  24.   put word 2 of cd fld id 105 into item 10 of PrefsHi
  25.   put word 2 of cd fld id 106 into item 11 of prefshi
  26.   if item 6 of prefshi=true then
  27.     show cd fld "Date"
  28.     show cd fld "Time"
  29.   else
  30.     hide cd fld "Date"
  31.     hide cd fld "Time"
  32.   end if
  33. end UpdatePrefs
  34.  
  35. on arrowKey direction
  36.   put "Arrow keys are disabled. There are no other cards."
  37.   wait 60 ticks
  38.   put empty into msg
  39.   hide msg
  40. end arrowkey
  41.  
  42. on Help
  43.   set cursor to watch
  44.   global shs
  45.   put "Help File" into shs
  46.   lock screen
  47.   show cd fld shs
  48.   set hilite of cd btn id 37 to true
  49.   show cd btn id 37
  50.   show cd btn id 83
  51.   Unlock screen with visual effect wipe right slow
  52. end Help
  53.  
  54.  
  55.  
  56. -- part 6 (button)
  57. -- low flags: 00
  58. -- high flags: 2002
  59. -- rect: left=483 top=274 right=294 bottom=508
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 21700 / 21700
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Go Home
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   answer "Go Home or to the Finder?" with "Finder" or "Home" or "Cancel"
  71.   if it="Home" then go home
  72.   if it="Finder" then domenu Quit Hypercard
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 8 (field)
  78. -- low flags: 01
  79. -- high flags: 0004
  80. -- rect: left=367 top=295 right=339 bottom=509
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 0
  84. -- font id: 3
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: 
  89.  
  90.  
  91. -- part 9 (field)
  92. -- low flags: 01
  93. -- high flags: 0004
  94. -- rect: left=2 top=295 right=339 bottom=365
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 0 / 0
  97. -- text alignment: 1
  98. -- font id: 3
  99. -- text size: 9
  100. -- style flags: 0
  101. -- line height: 12
  102. -- part name: MESSAGES
  103.